home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1987 December
/
Ahoy_Magazine_87-12_1987_Double_L.d64
/
Inner String 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
332b
|
11 lines
0 print"[147]inner string"
1 rem ==================================
2 rem commodares problem #44-3 :
3 rem inner string
4 rem solution by
5 rem larry schafer
6 rem ==================================
10 dim p(80):input a$,b$:for j=1 to len(a$):for a=1 to len(b$)
20 if mid$(b$,a,1)=mid$(a$,j,1) and p(a)<>1 then p(a)=1:nextj:print"yes":end
30 nexta:print"no":end